Data Documents, irc. 
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Data Decuments/inc 


e. @ 
| BEGIN REAL COMMONS 00010000 
eo. Lavteeekkkeks REPLACE/CANDe 3470 Wot ek Re dk Wk kkk 00010106 e 
—— . COMMENTS * TITLE? 85500/85700. MaRK xv SYSTEM. RELEASE... ... mo. OF OR 9 0s Ue 0 oi cianiehal She, 
a * FILE I0% SYMBOL/REPLACE TaPE Ib3 SYMBOL2/FILEO00 | * 00010111 } 
@ * THIS MATERIAL IS PROPRIETARY TO BURKOCUGHS CORPORATION « 00010112 |@ 
canara ae * AND.TS NOT TO RE REPRODUCEDs USEDs OR DISCLOSED «00010113. ....... SoS tast : 
ie * EXCEPT IN ACCORDANCE WITH PROGRAM LICENSE UR UPON * 00010114 4 
@ : * WRITTEN AUTHORIZATION UF THE PATENT DIVISION OF * 00010115 |@ 
Miss Sudo. * BURROUGHS CORPORATION» VETHOTTs MICHI Gan 46232 _ _. wl. 00910116 ii ie Re oe ete ee he are 8 
Fy = * 00010417 : 
e. * COPYRIGHT (C) 1971» 1972 BURROUGHS CORPORATION * 00010118 /@ 
Be Fei cet ed *..AA320206  AAI32366 AA386657. 9 90010519 ee het aces Bt Ne ae ee ned tah, ote aed 
ish DEFINE. EORS SO&3"37"( 43 43i St, MAXRANGES = 25H» LEFTARROWS"e"# 3. 00010200 10 
os) MN ARRAY INBUFLO?10)> GRPTKNSsFILINX#sREPINX(O% 63)» FNDINX(O%470)5 00010300 /@ 
i, rece ARRAY LBOUNDsUBOUNDCCIMAXRANGESJ3 saisiadhhty oat connie mabe tartan MOULIEOQ:. Pe Aaa ene ee a 
i SAVE ARRAY ESP»WORKLO:30),0UTBUFLOI1113 00010500 "9 
@ Mi BOOLEAN FOUNDs BRAAK»s PRNT»* TEXT» OVERFLOse SEQGHKe SFLG3 00010600 J@ 
sone FILE IN OLD DOYSK SERIAL(1+0,0)3 nae 90010700. Ree ete eee ee 15 
16 FILE OUT NEW DISK SERIAL [208600)(29109 3O0sSAVE. aye 00010800 16 
@” INTEGER OLDSIZE» TOKENCOUNTs TOSCAN3 00010900 |@ 
eo. REAL COLS» COLSLEFT» cOUNls» ENOWORDs FSPPTR» ERROWs FLGs a 0001100C Stet Blanes nse ao acs EN tee ee cece INE 
i GRPCOUNT» I» LREC» LIMIT» NF» NRANGES*+ NUM1» NUM2s 00011100 hs 
@» LINSIZ» PREVNFs PERLINE® RC» RECSIZs SCANNEDs SEG» STRTWORD? 00011200 /@ 
PM es ee KANG oe TOKENLENGTHe TOKENPTRe TOTAL, Wis nes W3e W4e WORKPTRS 90011300. Bi ag ition OI eek ster ce | 
2 LABEL COPYTOEOQFs, ENDYLOUPs EXIT» FINULJi» READIN» SAVEEXITs 00011400 ; 
@» TOKENLOOPs WRITENENS 00011500 21@ 
oO ks ON ACUI II IOI IO IOI OI IIIS III ISIUIDIUI I III OIC GIDC IDOI IGG eis 900011600 pat eae ee NE ae ghee es ates i 
bes PROCEDURE TWXQUTCA*NeT)3 VALUE NOT REAL Ashe Ts 00011700 : 
BEGIN COMMUNICATE( #11); BRAAKt=BUULEANCT)3 EAUS 00011800 20) @ 
5 Somers x RIO IOI III III IOI III OI IOIIGI OIG SO Iii i iotoies eiton 00011900. PRE nM eit ase Sed eta, 2 
si REAL STREAM PROCEDURE ADDRESS(A)3 00012000 bh 

29 BEGIN SIt=as ADORESSS=S13 ENDS 00012100 21 @ 
a a I III COI CIO UI IOI III III OUI III IOI ioiieei inci 0.0.012200 Bec Oth pees “oN eet ete a 30 
REAL STREAM PROCEDURE DECCONVCOCTV)4 VALUE OcTvs 00012300 a 

BEGIN SIt=_OC OCTV; DI:=LUC DECCUNVS US?=8DECs ENDS 00012400 | @ 
Pte cts ah ; AUC ECU GCGIUIIICIIOUUIISIUIGIUIUIIIIUIIUOUIOISIUIIOIOUIIU ICONIC ISIGUOIIUI UCN ti ert 400012500 _ eo a a a 33 
STREAM PROCEDURE MOVEWORDS(NoAsB)s VALGE No 00012600 34 

BEGIN SI8=a3 DIt=B3; DS:=N WOSS END; 00012700 2@ 
Eo deetce _. FEAL STREAM PROGEDGRE CTO GaU CBDR EAHA HH 90001 28 00. a a Poe ae ee ee 36 
REAL STREAM PROCEDURE OCTCONVCOUECV), 00012900 7 

BEGIN SltmDECV3 DIs=LOC OCTCONVS OSs= g CCTs ENDS 00013000 4@ 
Poach BUI UII IG IIIIUIIIOISISIGISIUIIUIIOIIOIUINISUICUIGG I IGOO GUIDO ne io iin ick ion 00013100_ Se RT me 39 
PROCEDURE DISKWAITCICs AREA» WDS»ADDR)S 00013200 40 

VALUE IT0»WDS»ADDRS REAL 10swWUSsAVDRs ARRAY AREALUJS COMMUNICATE( #9)3 00013300 «|@ 
TB IIIIUIIIEIUIICIUIGIIGIIIIUIUIIIDISUIIUICIIIUIITIUISOIOUISIIIIUIDIDICIUIIUIOOIOIUIOI oii gbidinicnteiniciciee 100013400 tees aN Mae hr a4 
STREAM PROCEDURE ERRMSG (BUF » ERRMSG)3 VALUE ERRMSG3 00013500 4 

ER er ee eg ee ee se a @ 
joe, BEGIN. = Ug ty ae ee Sead pcos Oe OM ES POO a ca! ol Tie stck fi Se oe i 
Dy:sBUFs DSs=4LyT"ERR3"3 SyrelOC ERRW STtsS]413 OS8=7CHRs 00013800 46 

DSt=LIT LEFTARROWS 00013900 ahd 
nies terete SEIN HE RRM SOS 3 ett oaees, as A et ae se ee OOO PMO OO oo teeta or i 
RENEE E RRR RE IRATE RRC ERE HARKER RA RERER AEE HEROOOL4LOO 49 

STREAM PROCEDURE NUMFOUND(UsNM)3 VALUE NM3 00014200 @ 
ja ee II IOI IOI III IOI IO III ions tein et 00014200 | Ea. Pacocehnas Met stint to cae lan fale ost Skee Poel | 
BEGIN 00014400 5 

DrssO4 DSte29LIT"NUMBER OF STRINGS REPLACED = "5 00014500 9 @ 
Aesewehaee _-S1tsLOC NMJ DS3=8 DECs DitsO]"8s NSt=7 FILLS ss 0 BOO Cie Bade, = 54 
END STREAM PROCEDURE NUMFOUND3 00014700 | 85 

DORE CEUEESEE GEE ROeCL ee eee ou Tago | @ 
_STREAM PROCEDURE REKNUMBERCBUF*LREC)S VALUE LRECS 90018900 = 2 
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Fete I III OO UII III OH II IG teins 800015000 


@ BEGIN 000151400 
eee o . SESELOC LRECS DISSQUFs OStsoDECs UIt=BUFZ DSt#7FILLE patente’, COUP S200 cers... ee 
\ SI:sBUFs DI teBUFS gcIF Sca" ™ THEN SItsSl+1 ELSE DSt=CHR)3 00015300 
@» DStsBLIT" "3 00015400 
Py ae ete Fo END. STREAM PROCEDURE REKNUMBERZ eit Sent BG 31680) io 2s 9) 9 Late ae eRe RS RR 
4 SEIS IOI SIDS IG SIS ISO IG II IOIGD Otlineifie€#00015600 
@ |: STREAM PROCEDURE OUTFCRMATCOUTBUF » INBUF D3 00015700 
RO NO I SI IOI OI IOI III I IOI IOI III IOI SOON IOI tO tO eke te tote tok ee ee 00055800 2 2 
i BEGIN LOCAL SV3 00015900 
@: SYtaINBUFS SCST&*sSy4+36)) OLIsOUTBUFS SVseDIs DStsWOSs NIs=SVF 00016000 
So OS RPP ILLS SltsSv3 DitsSys SCIF SCa" " THEN SlisSi+1 ELSE DStscHR)3 00016100 #38. 
qu DSt=LIT " "4 STSsINBUFS 2°0D0528536 CHRIS OStS9L IT” "5 00016200 
@ mM END STREAM PROCEDURE QUTFORMAT3 00016300 
Pasi tape tincetd eeak & OR III ITO III CIIOIUIO III IGIUICI IIIS ICIIOUIUITICI tH te tot ttoick ###* 00016400 rota Se tonne SS 
13 “STREAM PROCEDURE TRUNCMSG(GUTBUF*SFLGsLREC*SEQ)3 VALUE SFLG3s » 00016500 
@ ELVEN SS ANS EN EATS VETER SSS SECRET ESE SESS RRS ET RO HERS SESE WAN ee OOOLO SOU 
Me vaeBEGIN LOCAL SV3 LABEL EXITS 0016700 | ‘abit meee 
16, DIs=OUTBUFS DSss8LIT*we LINE “3% oVasbIs 00016800 
ee” SFLGCS]2sSEQ3 OSteachRs OL12:=25Vs YSt=7F ILL S[s=Sy3 DIssSV3 00016900 
mo BCTR SCH" " THEN SEPSSI1+1 ELSE USiSCHRIS 00027000 _ TA ae ere 
3 JUMP OUT TO EXIT)3 00017100 
@ : ST@sLRECs OStsBPECs OTs sSV3 OSt=7FILLs S]Lte2eSVs OLiaSv3 00017200 
pl ott ay SBCIF SCs" " THEN STS=oI+1 ELSE OSSSCHR)S 2 0700 
'é EXIT: 00017400 
@ » DSts19L IT" TRUNCATED. "5 00017500 
_..END STREAM PROCEOURE TRUNCMSGs Nes ae eee fee at 09017600 . . 
SII IIIS ISIS IG IIIS IIIS IDOI IODC I ki tink i tit trie 00017700 
e@ REAL STREAM PROCEDURE SETNUMC(BUF*SEU*LRECoSELG*STAR)S VaLUE SFLG»STaAR3 00017800 
Fo III IOI ICICI IOI OIIOIUIOII IOI IO IGT i tO tii ick tote 000017900 
BEGIN LOCAL SVs LABEL LBLs 00018600 
@ DIs=zBUFs DSteLIT™ "53 TALLY3=13 0001840C 
ENO oS Uc elo Et Aa ll en Oh 2-2 eR ec ce ee me ° 1 
: SV23013 00918300 
@ SFLGCSI1SSEQs DIMSLOC STARS pstseCHR# YUMP GUT TO LBL): 00018400 
5 eee e cw SEESLREC) DISSLOC STAR? DS#s8DECR ee OTB 5O0 2 
“LBL 00018600 
Or DIt=LUC STARS DSts7FILLs SI#=LOC STAR: 00018700 
>; wn OIF SVG bh a a a ele he Be eal ess oe tee a ee te OOO LO RO Ose hl ea A ie 
i 8CIF SCs" * THEN | SI?=S]+1 ELSE 00018900 
@ ; BEGIN DStsCHRs TALLYSSTALLY#1s END); 00019000 
sa Seog tS YS ka ane i i a Re i Sree eg oa 
END STREAM PROCEDURE SETNUMS 00019200 
r ) I eI IOI III IIIS III IIDIDISIUIIGIIGIUIOII OI IOI IO OG iiicidicns 00019300 
_ ss CREAL STREAM PROCEDURE ATOKENCIPYR» TPTR», EQR)3. VALUE EURS s. —. .. 00019400 | 
BUCS IESG III UIESISEISISISEIIIIOUII DINO IDO ING ani iit initia iret 00019500 
@ | BEGIN LOCAL STRT»FIN? LABEL LOOP»NEXTADRS»EXITS - 00019600 
if beer _SLSsTPTRs SItsS453 SlssSCs3 pie eat eee i ___06019700 Be a Rosacea Rt 
6 ~ LOOP: IF SCa" * THEN BEGIN SItsSI+1s GO Go TO “LOOPS ENDS 00019800 
@ } STRTt=SIs % SAVE STARTING ADNRESS 00019900 
_IF SC GEO "O" THEN IF SC LEQ. 9" TENA WW 00020000 x = 
IF TOGGLE THEN % NUMERIC TOKEN ~ 90020100 
@; BEGIN - 00020200 
SLE eST 4s TALLY $8 13 — a NA0300 
‘ 62CIF Sc GEO "C" THEN IF SC LE® "9" THEN; 00020400 
OF IF TOGGLE THEN BEGIN SIt=SI41s TALLYt=TALLY*1s END ELSE JUMP GUT)s000zZ0500 
: cee ee GQUTOONEXTADRSS do. digit cata posse, Je eeteieiaet at Ohta eee ee OOO ZO 6OO.c... x. Sin tL Qestein ee hla 
p ENDS ® IF NUMERIC TOKEN 00020700 
@ Fs IF $C = ALPHA THEN IF SC LE@ "9" THEN % ALPHANUMERIC TOKEN 00020800 


Data Documents/Inc. 


i GO TO NEXTADRS; 00021300 
Ee . ENDS & ITF ALPHANUMERIC TOKEN 00021400 
Mn PSC NEO LEFTARROW THEN % SPECIAL CHARACTER UU Oeas00 «= 
|4 BEGIN TALLY!=43 STt#Srt+1s GO 10 NEXTADRS$ END} 00421600 
el STteLOC STRTs DIts_ac EUR; 00921700 
Sg eee I) SCs0C THEN GO TO EXITS £ END OF RECORD 2 oogigon. 
f SLIsSTRTsS SLssSrois TALLYs=43 : 00021900 
: NEXTADRS3 00022000 
Bf nn NESSIE SISSCOG FING DISSIPTRS DSSSNDS§ % ADVRESS OF NEXT CHRe 00022100 = ees 
10, STtsLOC STRTS OLt=sTPTR; DS:=wUS3 % ADDRESS OF TOKEN 00022200 
ny EXIT: 00022300 
iE a ATOKEN PS TALLYS & TOKEN SEZEs ( ZERG IF EOR 2’ con O€OV22400 NE Ostet ariel eee OT 
END STREAM PROCEDURE ATOKEN: , 00022500 
14 AUIS III ISIS IOIIOIISIIGISIDIIOIIIOOIIOIGISIG OID IG init si 00022600 
pe REAL STREAM PROCEDURE LITSCANCTSsWPoFINX®F)$ VALUE TS3 gp Opa7og lCsC«w” sgl ih paperanian 
pe BOUT OII III SIO III IIIS IIIS IOUS IO i iSite ie 00022800 
hy BEGIN LOCAL FLOK»sCS3 00022900 
i] DESMFs ‘DStseUiT"O%; & RESET F TO Fase to 
Li SIssFINXs SIlssSI+43 VIss_LOc OSs VirssDl+73 DS SCHR} & OLD SIZE 00023100 
eo» S1s=sSC3 FLOKS=SI3 % ADDRESS OF OLU STRING 00023200 
_——— -—- SLASWPs Slassle57. SLissCs % ADOMESS OF WORK AREA 0 99023300) 
2 


SIt=S1413 TALLY $=1; 
| 62CIF SC = ALPHA THEN IF SC LEW "9" THENS 


00021000 
00021100 


TF. TOGGLE THEN BEGIN Sltssl+i, TALLYS=TALLY +13 END ELSE JUMP OUJ)23000¢1200 _ 


TSCLITSCANS=S13 OLs=FLOKS 
IF OS SC = DC THEN JUMP QUT. 


PA ST ESLITSCANS STSSS 1413 TALLYS=TALLY 4193 


00023400 
00023500 


os WOU2ZSB00 50.28. of annie deett nie: 


a IF TOGGLE THEN & FOUND A MATCH 00023700 
ze BEGIN Ol teFs Ol s2D1473 OStsLI74"3 SIs=s LITSCANS END$ 00023800 
pipe —————--—--~- LETSCANESS12 SIteice LITSCAN: DItSWP3 DStawOSs nz 000 het eed de Ric antler sheet Sere os abel i 
LITSCANES=TALLY3 00024000 
END STREAM PROCEDURE LITSCAN} 00024100 
OR IOI I IOI OIC UII III UOI III UUO UU OOO r iii eit in ime 00024200__ Seat eee eC 
st BOOLEAN STREAM PROCEDURE TOKENSMATCHON*NOXLsNDX2)3 VALUE N3 00024300 
[32 FGI II III II III ISI IOI IOI IOI I eit ee 00024400 
(Dna Ser nee) >| 2c, ee BS ce Spe a a cei eet sweat oe ot a ea OO!, -_ sect ein DEI  e 8 an SIT BO 
ca LABEL EXIT; 00024600 
tad LOCAL SeDeRs 00024700 
ppm SLE SNOKLS SLESSI 443 OLESNDX23 DItSDIe4s oO goo 
bad NCOSt=SIs Dse013 00024900 
: IF SC=O0C THEN & TOKEN LENGTHS ARE EQUAL. 00025000 


a aa Daag ea le Be ee ctacap hfe fase fuch nts MOU AS UO inca os” 
i SttsSleqs Orteboc Rs DIt=O1+73 OSt2CHR; 00025200 
a STtaSCs OLseDs OL szDI1+13 pDlssvc;3 00025300 


i ENO ELSE. JUMP OUT TO EXIT; 00025500 

, SrisSs  SYssSl+8s Dlts0s OLieDI+Aas)3 00025600 
a sce AA OY Da a a rst a es ere Se gt la eel eee ne 90925700 _ 

EXIT: TOKENSMATCHSSTALLY3 00025800 

END OF TOKENSMATCH} 00025900 

FOI ROI UII III IIIIGIIIOII IOI OUI IIIS IOI GI Oi it Q2600 

STREAM PROCEDURE REPLACELITCWLsW2sW32WORKPTR»e OS 14s REPINX* OVERFLODS 00026100 


AEE III IUD IIIS IOI IIE Iii i hihi kt tik iin ieee eee 00026200 


JF R SC NE@ OC THEN JUMP OUT 10 EXIT; & TOKENS NOT EQUAL __ 00025400 


poco o  OOVESS00 ) n. ... 
00026400 


We IS AODRESS OF WORK(9] IF SEQUENTIAL FILE» OF WORKC10J IF DATA FILE 00026500 
W3 IS ADDRESS OF WORK[20) a 00026600 
WORKPTR CONTAINS ADORESS OF NEXT CHARACTER IN WORK RECORD 00026700 
OSIZ IS SIZE ¢ NO. OF CHARACTERS ) IN OLD STRING 00026800 
END OF COMMENTS —__ et at ae EE ances Po 8» on 9, 1 OOM RO SOU 


Data Documents; inc. 


BEGIN LOCAL NSIZ»Svs LABEL LaLs 
DYt=w23 DSs=eLIT" “3 Syt=sw2s OS#=10 WOS$ & BLANK UUT WORK AREA 
SIt=wORKPTRS SItsS[+53 S]t=scs SvizSss % LOCATIUN OF ULD STRING _ 


STssSI4OSIZ3 DItaw3s 2COS*RHOCHR)S & SAVE REMAINDER OF RECURD 
SItsREPINX3 SltsSI44s DItsLOc NSIZ3 Ole sDl+7s OStsCHRS & NEW SIZE 


oo Ya fF be wn oye” 
+ 


| 


BEGIN OTMsOVERFLOS DSteBLITMOQQdOOO1"s ENDS 
END STREAM PROCEDURE REPLACELITS 


be wo BPE SCS OTESSVS OSTENSTZ CHRe SVISDLS &@ REPLACE OLD WITH NEW 
ST2=W3s 2COStS4OCHRIS % REPLACE REMAINDER OF RECORD 
STs=LOC SV3 DIt#wORKPTR# DstsWDSs %& AORS OF wEXT CHAR, TO BE SCANNED 
Lee eNOS. OCMOCTF SCe " THEN Sltssl+) ELSE JUMP OUT 2 TO LBL d)s 
LBL 
IF TOGGLE THEN ELSE % OVERFLOW OCCURRED 


00027000 
000¢7100 


00027300 
00027400 


00027600 
00027700 


90927200. 


00927500. 


00027800. 


00027900 
00028000 


00028200 


1 eae te ae tee ee eee tei ee te Rt IOI Ro I JO kek ks ee et 00028300 


vw STREAM PROCEDURE REPLACETOKENS( WI» N22 WI, N4 oF LL INX*NTKNSSREPINX*QOVERFLOJs000eR400 


Renee eee eae eee EERE ERE eerie tee k000 28500 


eet MOOR AL O0 eo os 


3 VALUE WilsW2eW3eNTKNS3 00026600 
COMMENT. 2 ete eee we sis heal a ant Monat icc oe nit it ol AO DB PO Ook ade 
ea wW1 IS ADDRESS OF WORKEOJ> 00028800 
yy W2 IS ADORESS OF WORK(9) IF SEQUENTIAL FILE» OF WORKC10)» IF DATA FILE 00028900 
Ue ee WTS ADDRESS OF. WORKE ZO] 5. iia stents OOOO ODOD 4 
19, W4 IS ASSIGNED ADDRESS OF FIRST ‘CHARACTER FOLLOWING REPLACEMENT. “STRING 000291400 
au END OF COMMENT3 00029200 
eee BEGIN. LOCAL OSIZ+NSIZeSV3 LABEL Leis one ieee ets delete Ly OOO Se 300. 
Re DIssW2s5 OStSG_IT™ "Zs STssW23 OSF=ZLOWDS; & BLANK ‘CUT “WORK AREA 00029400 
Ps SI:sFILINXS NTKNSCSI82S1+8)4 & SKIP TO END OF TOKEN GROUP 000¢9500 
é Bee, Tbe sle43 plrslOc OS12Z23 plizple?s o8tecne; & LENGTH OF LaST TOKEN ogQ2e9600.... 
ae Ste*=SCs SIssSI4+0SI1Z3 & POINT TO 157 CHAR. FOLLOWING EXISTe STRING 00029700 
ad DItSW3s 2COSt=4OCKR)IS & SAVE PORTION OF RECORD FOLLOWING EXIST,STRINGOOQ29800 
é ___. SEtsREPINXE SIimSIeas DItsiOc NSIZ? Di tsDl47i DStzCHRs % REPL, SIZ 00020000. 
8 Sys=SC3 % POINT TC ACTUAL REPLACEMENT STRING (€ IN ESP RECORD ) 00030000 
a DItsFILINXs DItsDl+53 OLltsDCs & POINT TO FIRST CHARe OF EXIST, STRINGOOO30100 
PU DS ENSIZ CHRS 2% MOVE REPLACEMENT STRING TO WORK RECORD = gad so200 |. 
_ SVtsDI3 Slt#s_OC SV3 Dit=W4; pSi=W0S3 % ADDRESS AFTER REPLACEMENT 00030300 
2 Dre=Svs Slsew3s 2CCSt=4OCHR)’ %B REPLACE REMAINDER OF RECORD 00030400 
ea he Ze SysWes 2C4OCIe Sca” " THEN SIt=51¢1 ELSE JUMP OUT 2 To Le_oyos 00030500... 
pe LBL? 00030600 
: IF TOGGLE THEN ELSE % OVERFLOW OCCURRED 00030700 
| _ BEGIN DItsOVERFLOs NStsBLIT"0U000001"5 p ENDS ROBO 
z ENO STREAM PROCEDURE REPLACETQOKENS3 00030900 
7 TOI ISIS II IINIOIIOIIUOIIIOOUIIOUG IOUGOOOOU iain iit inci titer ik 600091000 
Access PROCEDURE PRINTS _—__ Be peak ar Pe eee ces Mee se oe Bad ts et, Rate a East 
Ze RARER HERR E MEER ER AERA RUN RR RRR RAR RRR ER EH EOOOSI2ZON. 
BEGIN 00031300 
AL NOT BRAAK THEN. sg Ne eR ech NC oti dee BAY 5 e., B. gin passa ate sepa: seca ... 90931400 
f BEGIN 00031500 
If OVERFLO THEN % SEND TRUNCATION MESSAGE 00031600 
aa a GN Gor ehe ba RN Ce carta ts EN oh a, wh il ___ 00031700 
IF LINSIZ GTR O THEN % TERMINATE CURRENT LINE | 00031800 
BEGIN 00031900 
a TWXOUTCOUTBUFLO]*»0%1)5 LINSIZs=0% _ - Sean _ 00032000 
ENO; 00032100 
TRUNCMSG(@UTBUF sSFLGsL RECs INBUFEL9OI)s © 00032200 
i TWKXOUTCOUTBUFLOIs270195 CATA corset tans : ue 009032300 
ENO3 00032400 
IF PRNT TREN 00032500 
u _ BEGIN oo 6. 909092600 
IF TEXT THEN 00032700 
BEGIN 00032800 
_IF_NOT SFLG THEN % DATA RECORDS ' 00032900 


Data Documents/inc. 


\ a eo \ 
BEGIN 00033000 
[ REKNUMBERCOUTBUF pLREC)$ TWXOUTCOUTBUFLO]s801)3 00033100 é 
Kiet att Sie iT a2 ig, ge MW OOUNGUE LOI MBODE Mere ok ry ey ety ne eet Fe 816100 (100 ee ee ee a 
‘1 END 00033300 j 
e: ELSE 00033400 | 2|@ 
3 ani Ge oda a iG Ne Sia i a es Gp ea eas gE Dee el tet OOO TREO en, wien veda lel pee aisle 3 
‘ OUTFORMATCOUTBUFs INBUF 23 00033600 . 
TWXOUTCOUTBUFLOJ>812193 ‘ 00033700 |@ 
Paar etna oe eh Noe fee ak ign oe cen pe nee e gh alt tee od OOUS SB OO oo 2 aidan eei hs oo ee ee 6 
Z END % IF TEXT. 00033900 1e 
@: ELSE 00034000 ; 
chasis De abies ROR Mee esa: i tO Fennec ee 4 
COUNTS=SETNUMCOUTBUF *INBUF CG) sLRECsSFLGsC(PERLINE GTR 1))3 00034200 ie 
. a TWXOUTCOUTBUFCO]» COUNT» 3"100000")3 00034300 W 
we ene oe AE LINSIZ 35 LINSTZ + COUNT GTR 60 THEN | gpua4aon wists Roce ie Sete ont aan eee 7 
BEGIN | 00034500 ‘le 
@ |. TWXOUTCOUTBUFLOJ]»0e1)3 LINSIZ ts U3 00034600 "4 
See tte izes a NO a oa Sa i esr a a cia ce ie OOO SEF OO! a. 2 oS Oo ee oe te Ne 
ENDS % IF NOT TEXTS 00034800 ‘\e 
@ ENDS % IF PRAT 00034900 7 
mC END SIF NOT BRA PO Pes St ea eaters Ae et re Ia tse inl ae ee eS tit RO OO 0 Os ie anata ite an tas Natta ah eet dee ath A es eae 
END PROCEDURE PRINTS 00035300 @ 
] JUGS IEI IOI IO ITI IDG ICG ori ink cn anette 0095200 1@ 
___.___ REAL STREAM PROCED RE VST TEC WORK 8 ec ee eee ee a eee cera 9 1 1° 5 Fc 5 8 CS aE ae Ec a | 
‘ BOI IUIUISIUIISISIUIOIISIUIG ISOS GI IIIS IIIS ODIO OSI III GI OI i iniineciie#00035400 p2 
e BEGIN 00035500 23 @ 
SLs WORKS STSEST 443 DISL0C ISIZts DItsDitag USt=MCHRe oO 8 egogse0o) na 
. END STREAM PROCEDURE TSIZE3 00035700 ‘ 
@ | lit he ee S ETC CeCe TC CLC CeCe ELS ee ee ee ee ee rn 00035800 . 2 @ 
~—REAL STREAM PROCEDURE UNPAKCADRS sFINXSNF sRINXsRCoTKNsNUML»NUM2 FIG) 00035900 ee Ree Ee 2 
FE III IOI OI III III III II III IOI III II IOI tte ew 00U36000 fae 
® COMMENT ROUTINE TO TRANSLATE CODED STRINGS InN INPUT SAVE ARRAY 00036100 of @ 
INTO USEABLE FORM FOR "REPLACE" PROGRAM, sD eo ica adieu ee aN cE pe we i 
a FORMAT OF INPUT ‘ARRAY [33 00036300 a 
@ WOCOD.CL1801) = 1 IF "PRINT" SPECIFIED : 00036400 :1@ 
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